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1.0 
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2.1 


2.2 
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3.0 


4.0 


4.1 


Oe re ee 


PASSING BETWEEN THE RP11 AND THE R 


SEE SECTION 5.1.1. 
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ABSTRACT 
THE RP11 OTe DIAGNOSTIC pe eT THE  RP11 
Ti MAINTENANCE MO 


CONTAINED IN THE PII By "UTE TeiNg THE __ THREE 
MAINTENANCE REGISTERS WHICH SI meoTe THE SIGNALS 


REQUIREMENTS 


EQUIPMENT 


STANDARD POP-11 CONFIGURATION AND A RP11 
CONTROLLER. 


DISK 





STORAGE , 
PROGRAM REQUIRES 4K OF STORAGE. 


PRELIMINARY PROGRAMS 
NONE. 


LOADING PROCEDURE 
USE STANDARD PROCEOURE FOR ABS TAPE. 


STARTING PROCEDURE 


CONTROL SWITCH SETTINGS 
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4.2 STARTING ADDRESS 


1. ice hod ie ne peli a TO RUN THE DISKLESS 
UST HAVE THE MAINTENANCE 


DIAG 
uivcH’g SB Hotatieaia RCUIT BREAKER ef 


LocaTes TQ ire RIGHT OF THE DRIVE 
CRCLE MUST BE TURNED OFF. 


4.3 PROGRAMS AND/OR OPERATOR ACTION 
1. LOAD THE PROGRAM INTO MEMORY USING THE ABS 
LOADER. 


LOAD STARTING ADDRESS OF 600. 
SET SWITCHES (SEE SECTION 5.1.1). 

PRESS START. 

WHEN RUNNING THE OISKLESS TEST THE PROGRAN WILL 


MAKE SO PASSES THRU THE TEST AND THEN TYPE 
“DONE” AND CONTINUE LOOPING. 


mm £&© Ww fv 
: Se ' Sy 


5.0 OPERATING PROCEDURE 


5.1 OPERATIONAL SWITCH SETTINGS 


AFTER LOADING THE STARTING ADDRESS, SELECT THE 
DESIRED SWITCHES. 


5.1.1 SWITCH SETTINGS ARE: 

SW<15>=1 ..... DELETE ERROR HALT 

SW<14>=1 ..... DELETE PRINTOUT 

SW<13>=1 ..... LOOP ON FAILING TEST 
SWil2@>=1..... LOOP ON TEST UNCONDITIONALLY 
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on a en eee 


0 ee ee es ens ere 


i en i re me me em re ee 


ee eee 
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5.2 SUBROUTINE ABSTRACTS 
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a. 
194 
195 PAGE § 
136 
197 ; 
198 
139 5.2.1 TRAP CATCHER 
i A". +2" - “HALT” SEQUENCE _IS REPEATED FROM 0-776 10 
202 CATCH ANY UNEXPECTED TRAPS. THUS ANY UNEXPECTED 
33 TRAPS OR INTERRUPTS WILL HALT AT THE VECTOR +2. 
205 
206 







20? 6.0 ERRORS 





210 
211 6.1 RROR_ PRINTOUT ONTAIN. THE ERROR A 
gle a , AT EBp of ane THERD BEBTINEN 

1 INFORMATION CONCERNING. ie PART CULAR THER URE” TH ae 
214 INFORMATION MAY BE THE CONTENTS OF THE RELEVANT RPLL 
215 STATUS REGISTER OR GQQD/'BAD COMPARE DATA. IF THE 
216 ERROR OCC IN A SUBROUTINE, THE ADDRESS OF THE 
217 SUBROUTINE CALL IS ALSO GIVEN. REFER TO THE PROGRAM 
218 LISTING AT THE STATED ADDRESS TO DETERMINE THE CAUSE 
219 OF AN ERROR. | 
220 
221 
222 
223 7.0 RESTRICTIONS 








5S . NONE. 







229 8.0 MISCELLANEOUS 






e 
233 8.1 EXECUTION TIME 






235 THE PROGRAM WILL MAKE SO ITERATIONS THRU THE 
236 pie TEST TO COMPLETE ONE PASS. AT THE END OF 
237 ACH PASS “DONE” IS TYPED OUT AND THE PROGRAM 








238 ONTINUES LOOPING. 






ete 8.2 STACK POINTER 
244 _ STACK IS INITIALLY SET TO 600. 







PROGRAM DESCRIPTION 
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CISKLESS TEST 


205 HL TATE, MSE Pep MGT 


RATN TENANCE Reel err Dd E THE SIGNALS PA poi 
BETWEEN 2. 6 RUN nay TEST T 


Exisre, INTE nce SuIToH Must ee EMRELED,. T BORE 


geared JU UST TO_THE RIGH ug OF THE ORIVES’S “SIGNAL 
i + ORBLE MUST BE TURNED OFF 
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% 


;RP11 DISCLESS TEST 
;COPYRIGHT 1972, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 


SR=177570 ;SWITCH REGISTER 
;CONDITION CODES 


;STACK POINTER 


















~MAIN. MACYL1 27(732) O8-SEP-76 08:58 PAGE 9 
OZRPEA.P11 


MACR ANDI A B. 
BIC #-A-1,8 ;MASK A APPLIED TO B 
1 ENDM 


332 
333 .MACR AND A,B 
334 COM : -C(B) =MASK. INVERT IT 
. 335 BIC ,A ;AND A WITH B 
336 COM 8 sRESTORE B 
337 .ENDM 
338 
.MACR BITEST A,B 
340 JSR RS,BITST ;TEST BITS IN REGISTER 
341 .WORD A > MASK=A 
34 “WORD. B sREGISTER=B 
34 ERR+GB *LOAD/READ ERROR IN B 
344 cae © " RTS PC sEXIT FROM ERROR CALL 
345 . ENDM 
347 
348 .MACR ROTR A 
349 JSR PC,RTR sROTATE RO A PLACES RIGHT 
350 .WORD A 
351 ENDM 
352 
353 .MACR ROTL A 
354 R ;ROTATE RO A PLACES LEFT 
355 


Ny 


















KO1 
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359 -MACR LOOP A,B 

a0 ta PC, J#LERCHK ;LOOP TO A ON ERROR IF SR13=1 

362 B: JSR PC, J#LUPCHK ;LOOP TO A UNCONDITIONALLY IF SRi2=1 
4 “ENO 


38 .MACR CLRSOT 

368 JSR PC, CLRP 

369 MOV #1,RO 

370 JSR PC’ INDEXP 

ze} BIC #88, IRPM3 
BIS #884814: dRPM3 

373 BIC 868, JRPM3 

374 ENDM 






378 20 
379 - "REPT 140 : 

380 42 3 | 

381 HALT ; TRAPPED OR INTERRUPTED 10 PREVIOUS ADDRESS 
382 .ENOR 


3NO INTERRUPTS ALLOWED DURING ERRORS 





LO 
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OZRPGA.PLL 
391 
32 000600 . 2600 
394 900600 012706 op0600 START: MOV HSTART, “6 SET STACK POINTER 
38S 000604 Ole767 000340 177164 MOV #340,¢¢ LOCK OUT OTHER DEVICES 
336 000612 Ole767 00062 607470 MOV #50. /BT0G 
398 000620 ooc005 Tl: RESET 
399 000622 005777 007474 TST JRPDS 
pO porese pact ee il RPDS NOT=0 AFTER RESET 
3 108 pope so LOOP‘ T1, TIP 2 
404 goose op0005 T2: RESET 
uOS 00654 005777 oO7446 TST JRPER 
406 O90660 901405 BEQ TeP 
40? 900662 104910 ERR+ER :RPER NOT=O0 AFTER RESET 
4O8 OOObE4 LOOP T2,T2P 


MO 
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T3: 
000200 007416 M oe aJRPCS 


3PP 


;RPCS NOT=0 AFTER RESET 
T3, T3PP 


007370 Ses 
007362 007314 MOV ARPWC , DATA 


sRPWC NOT=0 AFTER RESET 
T4, THP 


007332 ne VOT anpen 
007324 007254 MOV RPA, DATA 


;RPBA NOT=0 AFTER RESET 
TS, TSP 


a 
007214 MOV @RPCA, DATA 
T&, TEP 


aod 
pa 


SRPCA NOT=O AFTER RESET 


as & 


017417 00723 #17417, 9RPOR 
oc7230 007152 MOV @RPDA, DATA 
17, 17P 


ture 
onVvea 


;RPDR NOT=0 AFTER RESET 


1 
1 
1 
1 
1 
1 


dRPM1 
TSP 
007112 MOV ORPM1 , DATA 


18, TP ;RPM1 NOT=0 AFTER RESET 


aRPM2 
007052 MOV JRPM2, DATA 
79, TSP 


OwoL MowoLMD 


Paty atl atl at) 1 ed ood ek ed edo 


;RPM2 NOT=0 AFTER RESET 


dRPM3 


, T1OP 
007012 MOV JRPM3 , DATA 
104002 ;RPM3 NOT=0 AFTER RESET 
LOOP T10,T10P 





[ot er ee ee 


eRe NOL. 
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DZRPEA.P11 
465 001302 000005 Tll: RESET 
466 001304 005777 O0705E TST dRPB1 
Wee Dol aie ates 007050 006752 HOV 3RPBI DATA 

UU ¢ ’ 

4 af jE: 4a8s Eek+D0 ;RPB1 NOT=0-AFTER RESET 
4 001 LOOP T11,TLIP 


oe ee cen Oe ee en EES RNS RE. 


-~_— me | 8 - e — 


en 






B0e 
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;RPB3- BUFFER 3 


UNUM 
forurururore 
Pun 4 dure 


4? 
4? 1342 T12: RESET 
74 901350 001410 BEQ T1l2eP 
urs 1358 1778s o070!4 O0B712 MOV JRPB2, DATA 
u75 001360 1 ERR+D0 ;RPB2 NOT=0 AFTER RESET 
tee 1362 Loop. s«~T12, 712 
478 901402 00005 T13: RESET 
w80 OOL44 OOS77P oOpe7ES TST JRPB3 
481 501410 601405 E90 T13P 
482 901412 104002 ERR+DD :RPB3 NOT=0 AFTER RESET 
483 0014345 LOOP: T13, T13P 
ae 
HSE ; TEST LOADING AND READING OF ALL POSSIBLE SITS IN RP1L REGISTERS USING A 
12 PATTERN OF WALKING O°S (-2,-3,-5,ETC.) AND WALKING 1°S -(1,2,4,10,£T¢.). 
488 :RPDS- DEVICE STATUS REGISTER 
42 001434 DSBT:  BITEST 377,RPDS 
433 _ ;RPER- ERROR REGISTER 
4% oc14so ERST: BITEST 176656,RPER 
43 ;RPCS- CONTROL STATUS REGISTER 
133 001464 CSBT:  BITEST 037576,RPCS 
30 :RPWC- WORD COUNT REGISTER 
a 901590 | RPBT: BITEST 177777,RPUC 
Bo ;RPBA- BUS (CURRENT) ADDRESS REGISTER 
300 001514 BABT: BITEST 177777,RPBA 
| Ev sRPCA- CYLINDER ADDRESS REGISTER 
ae 001530 CABT:  BITEST 377.RPCA 
| 513 sRPDA- DISK ADDRESS REGISTER 
515 1s44 DABT: BITEST 17417, RPDA 
| 517 ! ;RPB1- BUFFER ! 
| 517 DO1SE0 BIBT: BITEST 177777,RP8! 
. :RPB2- BUFFER 2 
| CO1S74 B2BT: BITEST 177777,RPB2 
| . 
} 
j 


inciaiiieennsibnaierenttsninrenmnaiimes . ee cre 


— ene eo ee a ee ee ee ee ee oe ees SS me me ee ae wee er me me re me + rm ee awe oe a 
' 
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| OZRPEA.PLI é : 

| «$2? 901610 8387:  BiTEST 17,RP83 

533 
1 
i 
| 
| 
i 
i 
; 


S<9 


{ 
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= 
ale 


INTE Hess SREERESRY 


888888 888888 8888 


. 


SEELOLS KeKLO 


iy ROE RNS SERS 


O0eecé 
002230 





Bonene 
000374 


008436 


177777 
003754 
017417 
006112 


Opese2 


006514 
006S02 


006410 


0063S2 
006340 


006312 
006226 
o0se44 
006156 
006176 
006106 
006132 


006120 
006034 


O8-SEP-7& 08:58 PAGE 16 


D0e2 


;RP11 RESET TEST 


RESOS: 


RESER: 


RESCS: 
RESWC: 


RESBA: 


-RESCA: 


RESDA: 


MOV 
MOVE 


ERR+DD 
LOOP 
MOY 
JSR 
BIT 
BEG 
MOV .. 


8377, aRPMe 
ie 
eat 


RESOSP 


RESDS,RESDSP 


Helge f JRPER 


aR ORPER 
RESERP 


RESER, RESERP 


RESCS, RESCSP 


#-1, ORPWC 
eLRP 


JRPBA, DATA 
RESBA, RESBAP 
re 
DRPCA 

RESCAP 
JRPCA, DATA 
RESCA, RESCAP 
8-1, IRPOA 

pc, ¢LRP 
#12417 ,RPOA 
JRPDA, DATA 





5 aT TN ee ; 
SECON IN INDEX & OTHER COTE 


;RPOS=0? 
iNESaeset FAILED TO CLEAR RPDS 


;SET RPER 
CLEAR RP11 
;RPER=0? 


S 
= FAILED TO CLEAR RPER 


; SET 
‘aan 
;RECS= 0 REXCEPT FOR READY? 


'NO-RESET FAILED TO CLEAR RPCS 


;SET RPWC 
scL EAR RP11 
RPWC=0? 


YES 
;NO-PUT_RPWC_INTO pata DISPLAY 
RESET FAILED TO CLEAR RPWC 


;SET RPBA 
:CLEAR RPL 
;RPBA=0? 
YES 


NO 
{RESET FAILED TO CLEAR RPSA 


;SET_ RPCA 
sCLEAR, RPi1 


:NO 
sRESET FAILED TO CLEAR CAR .: 


;SET RPOA 
CLEAR RP11 
AR & SAR=0 





eMAIN. MACYL1 27732) 
DZRPEA.P11 


S86 002236 104002 
S87 002240 


em ew = a 5 ee ee ee rt re er ee | + 


E0e 
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ERR+DD 
LOOP RESDA,RESDAP 


me ee eee - 


;RESET FAILED TC CLEAR TAR & SAR 
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Be 


;RPOS FUNCTION TEST 


DSF 1: 
fe fe en 
ipRoceeD IF be 


ADY NOT SET BY RPM3,B14=1 


5390 
$31 


z 
3 


un 
B68 


oS 
Be 


OSF1,OSF1P 


a 


0 
#814, ORPM3 
#814° JRPM3 
8615‘ ORPDS 
DSF2P 

DSF2, DSFeP 


R 
y 


cLfED BY RPM3,814=0 


: 


Svinte tet 
8 
af 


;FETCH CURRENT SECTOR 


{LOAD SAR _WITH 
CURRENT SECTOR+1 


bi 


00 NOU £ Wr O 
o “ 
Rs 


Bs 


ee 


;READ AND GO 
:3 TP 


31 


8 
g 


61 
61 
61 
61 
61 
61 
61 
61 
61 
61 


; ISSUE he 

INDEX PULSES 

sTEST T HEBDER-NOT-FOUND=! 

t HEADER-NOT-FOUND NOT SET BY PROPER SEQUENCE 


8 
g 


a 


2 
3 


PC HRDER 
DSF 3, OSF3P 


8 
g 


e 


aRP 
#810, JRPM3 :SET M. SEEK INC. 
#811: dRPDS ; TEST SEEK INC.=1 
DSFuP 
DSF4, DSFYP 
aRen3 


00S466 BI SET M. SEEK INC. 


os Sn ee is 


ce 


_}SEEK-JNCOMPLETE NOT SET BY RPM3, BITIO=1 


PASAT MAMA RAAT 
z 
s 


8 
ae ai 


:0K IF CLEAR : 
;SEEK-INCOMPLETE NOT CLEARED BY RPM3,BIT1O=0 





a Re ee ae me a nt ee eee 
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644 02719 | LoOP 


ee ee oe 


OSFS, OSFSP 





—— - - —--- oe + - ee oe - ee— ee eee ee oe 
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002734 000240 DSF&: NOP ;00 LATER 


B48 002735 neue gosv20 DSF7: LR anna 

Ped BOSS HE Bpased 005406 ete #811. ORPM3 SET M. FILE UNSAFE 

651 002754 032777 OO1000 O05340 IT #29, gRPOS TEST FILE-UNSAFE=1 

B52 O0e7s2 001005 mw 6 !0K IF 

653 002764 104004 ERR*DS ‘FILE-UNSAFE NOT SET BY RPM3, 8111 
77 


éLR JRPDS 
003016 052777 OO04000 005336 BIS #811, IRPM3 sSET M. FILE UNSAFE 
659 003024 O4e777 004000 005330 BIC #811; ORPM3 :CLEAR M. FILE UNSAFE 
003032 777 001000 00 BIT #89, JRPDS TEST FILE-UNSAFE=0 
661 OO 0014 BEQ DSF Lop ik IF CLEAR 
662 00 104 +DS ILE-UNSAFE NOT CLEARED BY RPM3,811=0 
663 LOOP  OSF10,D0SF10P 


00526 ;SET M. READ ONL 
668 093102 032777 000400 Oo0Sel2 #88, MRPDS sTEST THRITE-PROTECTED=| 

669 110 0010 BNE DSF Lip K TE SET 

670 lle 1 ERR+DS SORT E-PROTECTED NOT SET BY RPM3,8IT1S=1 
p71 003114 LOOP DSF11,DSF11P 


673 003134 005077 oDSe22 OSF12: CLR JRPM3 

674 003140 005077 OOSISE CLR JRPDS 

675 003144 052777 100000 oos210 BIS #815, JRPM3 SET M. “READ ONLY 

676 003152 042777 100000 o0520e2 BIC #815; dRPM3 : CLEAR ONLY 

677 003160 032777 400 005134 BIT #88. JRPDS : TEST WRITECPROTESTED 

678 OO3166 001405 BEG DSF lap 0K LEAR 

679 003170 104004 ERR+DS *WRITE-PROTECTED NOT CLEARED BY RPM3,BITIS=0 . 
p80 003172 LOOF OSF12,DSF12P 

682 003212 012767 000001 OOSO4E OSF13: MOV #1,GO0D ;START WIT M. ATTNO IN GOOD 

683 00 005136 DSL13: CLR JRPM3 

684 903204 9050 CLR JRPDS 

685 003230 916777 005032 120 MOV GOOD, aRPM2 ;SET RELEVANT M. ATTN BIT 

686 003236 126777 oosos6 C G00D’ JRPDS ‘TEST RELEVANT ATTN BIT 

687 003044 001410 BEQ DSF 13P sPROCEES IF OK 

688 O03°% 117767 oOS0SO oOso14 MOVB  aRPDS, BAD RPDS7-0 ON BAD BOR DISPLAY 

689 902254 104001 ERR+GB ihe TATTh DID NOT SET CORRECT ATTN BIT 
690 003256 LOOP  DSL13,0SF13P 

691 003276 o0024 CLC . CLEAR LINK 

692 003300 006167 o0476e ROL G00D sSHIFT ATTN TEST BIT 

b33 003304 032767 OOO400 oo47S4 BIT.  #B8,GO00D NISHED 7-0? 





FI 
003312 Oo01742 BEQ~=s«éMSLL3 RECYCLE IF NO 
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dob0o3 O0s000 
oC000 


O0464e 
004624 


004606 


004514 


. OO4SSO 
004S3e 


0000- O04Si4 


002326 


004416 


004450 
004424 


102 


;RPER FUNCTION TEST 


ERF 1: 


ERN1: 


ERFe: 


ERNe: 


ERF3: 
ERL3: 


ERF4: 


ERN4: 


ERFS: 
ERLS: 





Bree gis. aRpng 
AOv8 #3, ats 
JSR 
BIT able, JRPER 
Bie ce ERM 
ISR 
LOOP ERP EREIP 
CLR — ARPER 
BIS #811, IRPM3 
MOVB 83, aRPCS 
JSR 
BIT #814, IRPCS 
BNE ERN2 
FRReER 
ISR PC, HRDER 
LOOP = ERF2,, ERFeP 
CLR JRPCA 
CLR DATA 
se . SATA ORPCA 
MOV #3, 9RECS 
JSR PC’ T3P 
BIT #813, ORPER 
BEQ ERL3P 
RR+DD+ER 
LOOP ERL3,ERL3P 
INC Bat 
CMP #203. ,DATA 
BNE ERL3 
CLR IRPER 
MOV DATA, SRPCA 
MOV #3, JRPCS 
ISR PC’ T3P 
’ BIT #813, ORPER 
BNE ERNY 
ERR+DD+ER 
JSR PC 
LOOP ss ER 4, ERF4P 
INC DATA 
BIT #88, DATA 
BEQ ERF4 
CLR JRPDA 
CLR DATA 
éLR JRPER 
MOVB DATA, IRPDAL 
MOV #3, JRPCS 
ISR PC; T3P 





aa} "i WORLD 
; ITE + 10 CONTROL REGISTER 


33_TP 

;1S WRITE VIOLATION SET? 

; PROCEED Dt v3 

:WRITE VIOLATION NOT SET BY WRITE FUNCTION 
; TEST INCLUSIVE ERROR BITS 


3 SET M. FILE "UNSAFE. 
; TRY TO GO 


;1S FILE UNSAFE SET? 


OCEED 
E UNSAFE ERROR BIT NOT SET 


PR 
FIL 
TEST INCLUSIVE ERROR BITS 


sSTART AT CAR=0 
;LOAD CAR WITH DATA 


31S NXT CYLINDER SET? 
IF_NO - PROCEED 
NXT CYLINDER SET BY A LEGAL ADDRESS 


ADVANCE TO NEXT ADDRESS 
ENTERED INTO ILLEGAL AREA? 
IF NOT - RECYCLE 


;MOVE ILLEGAL ADDRESS INTO CAR 


31S NXT CYLINDER SET? 
;1F_ YES - PROCEED 


NXT CYLINDER SET BY AN ILLEGAL ADDRESS 


;ADVANCE TO NEXT ADDRESS 
;DATA=400? 
;IF NOT RECYCLE 


;START WITH TAR=0 


;LOAD TAR WITH DATA 














JO0e 
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OZRPEA.P11 
751 003712 032777 010000 oo44Os BIT #812, IRPER 1S NXT TRACK SET? 
ube 0037 014 E RLSP iND : 
? 752 10401 +DD+E tYES = NXT TRACK SET BY LEGAL ADDRESS 
754 003724 LOOP ERLS,ERLSP 


S 003744 005e67 004322 INC DATA ;ADVANCE TRACK 
ce peaeee pee eee 0000e4 9004314 CMP #20. ,DATA ;DONE ALL LEGAL? 
003 1343 BNE ERLS ; CONTINUE 





NN EEE 











MACY11 
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eg 


gece feectecree 
NES RBSPRBSREN 


—_——— 


27(732) 


Baa Gee 
za ae 
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o0e0Se 


004024 
000020 


004216 


O4246 
4224 


004206 
004114 


004154 
004132 
004114 


004016 


ERN6: 


ERF?: 
ERL?: 


ERF 10: 


ERNIO: 





JRPER 
MOVB DATA, IRPDAL 
MOV k » RECS 
J R PC’ T3P 
T #812, ORPER 
BNE 
ERRYDD+ER 
U8gp ERee TRO EP 
INC DATA’ 
BIT #85, DATA 
SEQ RF6 
CLR aRPDA 
CLR DATA 
CLR JRPER 
MOV DATA, JRPDA 
MOV #3, JRPCS 
ISR PC’ T3P 
BIT ws JRPER 
BEQ 
ERR+DD+ER 
LOOP ERL?,ERL7P 
INC ATA 
CMP #10. , DATA 
BNE ERL? 
CLR JRPER 
MOV DATA, JRPDA 
MOV #3, gRPCS 
JSR T3P 
BIT “SH JRPER 
NE ERN1 
ERR+DD+ER 
JSR PC 
LOOP ‘°-ERF1O,ERFIOP 
INC ATA 
BIT #84, DATA 
BEQ eRFIO 


KO0e2 













;LOAD TAR WITH DATA 
GO : 







31S NXT TRACK SET? 
; YES 


NO - NXT TRACK NOT SET BY ILLEGAL ADDRESS 
;TEST INCLUSIVE ERROR FLAGS 


ADVANCE TRACK 
iO 






;START WITH SAR=0 
sLOAD SAR WITH DATA 





;1S NXT SECTOR SET? 
YES - NXT SECTOR SET BY LEGAL ADDRESS 


;ADVANCE SECTOR COUNT 
:DONE ALL LEGAL? 


;LOAD SAR WITH DATA 
GO 





ite NXT SECTOR SET 


NO = NXT SECTOR NOT SET BY ILLEGAL SECTOR 
;TEST INCLUSIVE ERROR FLAGS 


SADVANCE SECTOR 
sEIN ISHED? 












- MAIN, 





733 









22 





oe 





MOmMmmMmmMowmocman 
O— 2 0 0 hb he 
WONTUICWMUH-O 





SRR 


SSS 
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004036 
004020 


003756 
003740 
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ERF 11: 


ERNLI: 


ERF le: 
ERF 13: 
ERF 14: 


ERN14: 


ERF1S: 
ERF 16: 
ERF 17: 
ERF20: 
ERFe1: 





JRPER 
PC, CLRP sWCOV=1 
#3; JRPCS ‘G0 
#810, ORPER 

RNit 


PC HRDER 
ERF11,ERFLIP 


;LATER, BABY. FORMAT ERR. 


JRPER 
#4003, dRPCS 






;1S PROGRAM ERROR SET? 
;PRGM ERROR NOT SET BY WC=0 AND GO 


;WRITE HEADER IN PDP-11 MODE 


;PROCEED IF SET 
;MODE ERROR NOT SET BY HEADER OP IN PDP-11 MODE 


- LP. ERR. 
. WO. PAR. ERR. 
. CHKSUM ERR. 
. WR. CHK. ERR. 


#86, JRPER ;TEST MODE ERROR 
RNIY 
ERE Ia, ERF14P 
;D0 LATER 
:D0 LATER 
;D0 LATER 
:D0 LATER 
D0 LATER 


;00 LATER. 


. NXM ERR. 
E.0.P. ERR. 
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a3 
Bee ;RPCS FUNCTION TEST 






Ba attend pteres vanes posese woh NOV #440 OReSY top MET RtTy 
But OO444E ie pOoese pp3e3e MOV #cSNi,a Bry fa TUp RET URN VECTOR 
g4y2 oo44s4. 004767 001514 CSL1: JSR PC, CLAP 

843 OO4460 005067 173312 CLR ps’ CLEAR BRIORITY 

844 094464 052777 O20000 003640 BIS #813, IRPCS ‘ENABLE ATTN PI - 
845 OO447e 016777 O0aS7" OOsb22 MOV DATA, aRPOS ‘SET ATTN 

846 O04S00 O00240 NOP : AND 7 

847 O04502 900240 NOP : WAIT 

848 004504 012767 COD34O 173264 MOV #P7,PS LOCKOUT PI 

849 o04s!12 104024 ERR+CS+DS "NO ATTN PI WITH ATTN & ATTN PI ENABLE SET 
g50 904514 . LOOP CSL1,CSFiP 

851 o04534 900401 BR “+44 





-MAIN. 
DZRPEA.P11 


00 
004776 


00502e 
005030 
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Oe 
104020 


004767 
012777 


000240 
012767 
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bossbd 


0037 


000340 
000340 


001316 


003516 


003612 
003520 


173160 
173150 


003516 
003434 


173066 


003432 


173006 


00332 
003274 


003262 


172714 


CSNI1: 


CSFe: 


CSEe: 


CSF3: 


CSN3: 
CSF4: 


CSE4: 


CSFS: 


N02. 


POPPOP 
ger DATA 

Bot #88, DATA 
BEQ csul 

JSR PC, CLRP 

MOV #CSE2, JRPIV 
CLR FS 

MOV #377, JRPDS 
NOP 

NOP 

NOP 

MOV #P7,PS 

BR CSFOP 

MOY #P7,PS 
POPPOP 

ERR+DS+CS 

LOOP CSFe,cSFeP 
ISR 

MOV AeSNo  RPLV 
CLR 

BIS #B6, RPCS 
NOP 

NOP 
MOV #P7, Pe 
ERR+CS 

OOP CSF3,CSF3P 

CSF4 

POPPOP 
ISR PC, CLRP 
MOV #CSE4, IRPIV 
CLR PS 
NOP 
NOP 
NOP 
MOV #P7,PS 
OR CSF4P 
POPPOP 
ERR+CS j 
LOOP  CSF4,CSFYP 
JSR PC, CLRP 
MOV #CSNS aRe1V 
e #86, JRPCS 
BIS #815, ORPCS 
NOP 
NOP 
MOY #P7,PS 


ee oe STACK POINTER SECAUSE OF PI 


LINK 
‘Aue at 
sRECYCLE IF NO 


;CLEAR RP11 

: ERROR RETURN ON PI 
ALLOW INTERRUPTS 
baat Mal ALL ATTNS 


:WAIT 

; AWHILE 
:LOCKOUT PI AND 
: SKIP a 

s LOCKOUT 


PI 
sRESTORE STACK POINTER 
ATTN PI WITH ATTN PI ENABLE=0 


;CLEAR RP11 

AT OW VECTOR 
ENABLE READY PI 
1 FOR 


K 
SHOUT, PREADY WITH ROY FI ENABLE=1 


5 RESTORE SP 
;RESET RP11 
sERROR RETURN 

* ALLOW PI 

3A 

;FOR IT 

: LOCKOUT PI 

SKIP ERROR 

RESTORE SP 

: READY PI WITH RDY PI ENABLE=0 


;RESET RP11 

:PI RETURN VECTOR 
; ENABLE ERROR PI 
LOWER PRIORITY 

iSET ERROR 


sWAIT 
sLOCKOUT PI 






z 
ft 
~~ 
o- 


MAIN, 27732) 


OCRPER.P 1s 


85 oosos2 104020 
Se estes 

be Doside Seeese 

S58 BOStG8 DONTE? 901060 . 

$10 905114 Olevr7 005152 co3z60 
§1i OoSie2 005067 172650 
8:3 005126 052777 100000 003176 
313 Bosiae | Oobe4O 

31s Do8i48 S00e40 

$16 005142 Dle767 O00340 172626 
§17 005150 00406 

$18 005152 O22b26 

Si$ 005154 104020 
320 005186 
$22 005176 004767 
S23 005202 Ol2767 000200 172566 
$4 905210 012777 603164 
$25 005016 O5e777 000100 003106 
936 00524 40 
927 905226 000540 

$28 005230 Ole767 OO0340 172540 
353 Soest | 1oage4 

$30 005240 

$31 005260 90040) 

$32 005262 O22b26 
$33 005264 Ole757 O00240 172504 
834 O05e72 04737 07202 

$35 O0Se76 001k? 177674 

$37 095302 004767 

938 905306 012777 000377 003006 
$33 905314 Ole777 905360 003060 
945 005322 OS2777 100000 o03002 
$41 005330 Ole767 000240 172440 
$42 005336 052777 020100 O02766 
843 905244 | 

944° O05346 , 

$45 005350 Ol2767 O00340 172420 
S46 905356 06 

647 905360 

942 905362 1040c4 

#39 005268 


vin 


eo 
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ERR+CS 
LOOP  ¢SFS,CSFSP 
Be +4 
CSN POPPOP 
€SF§: JSR PC, CLRP 
MOV  CSEE, @RPIV 
CLR ge 
81S #815, 9RPCS 
NOP 
NOP 
NOP 
MOV 8P7,.PS 
R CSFOP 
CSE6: POPPOP 
ERR+CS 
LOOP  CSF6,CSFEP 
CSF7: JSR PC, CLAP 
MOV #PS,FS 
MOV #CSN7_ IRPIV 
BIS 886, DRPCS 
NOP 
NOP 
MOV #P7,PS 
ERR+CS+ 
CSE7, CSF7P 
Sa 
CSN7:  POPPOP 
MOV 8P7,PS 
JSR PC, deLUPCHK 
IMP CSF? 
CSF1O: JSR PC. CLRP 
MOV #377, IRPDS 
MOV  8CSELO, ORPIV 
BIS wB15 aRPCS 
MOV cps 
BIS #803813, ORPCS 
NOP 
NOP 
7 MOV #P7.PS 
5s ter Loe 
CSE1O: POPPOP 
ERR+D5+CS 
LOOP CSF1O,CSFLOF 


BO3 









;NO PI ON ERROR WITH ERROR PI ENAGLE=1 


;SKIP STACK POP 
;RESTORE STACK 


PI 
RESTORE LOCKOUT 
:SK iP one op 


STO 
Bearer ROR Br ITH PI ENASLE=0 
;RESET R 
sR OH Br aN LEVEL 5 
ENABLE INTERRUPT 
sy, 


. 





WATT 
;REST RE LOCKOUT 
;NO PI ON LEVEL 5 


39K IP POP 
;RESTORE SP 
sRESTORE LOCKOUT © 





NAB 
maT 
RESTORE LOCKOUT AND 
;SKIP ERROR 
sRESTORE SP 
sPI ON LEVEL &. IY SHOULD SE LEVEL S. 
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DCRPEA.P11 


f 


$54 : =a 
955 ;RPCA FUNCTION TEST 


CAF I: 


- RESET 
sSTART DATA AT CYLINDER 0 
CALI: M 4 


se 736 sL . C.A. 
goeb4 sRERD CURRENT CYLINDER 
sSKIP IF’ YES " 
!CURRENT CYLINDER NOT= TO MAINT. CYL. ADD. 


;ADVANCE CYL. COUNT 
- ;FINISHED? - 


:RPDA FUNCTION TEST 
DAF1: PC, CLRP - RESET 
GOOD :START DATA AT SECTOR 0 
:1 INDEX PULSE 
DALI: 8B SRPMS 1 SECTOR PULSE 
s;READ SECTOR 
;RIGHT- 
: JUSTIF 
* REGISTER 
;CHECK SOT 
:SKIP IF’ OK 
j SECTORS INDEX PULSES NOT COUNTING SOT 


par! 
sADVANCE SECTOR 
DONE? 


Ae a al 


4 
ru 


31 INDEX PULSE 
31 SECTOR PULSE 


;$07=0? 
001495 ;SKIP IF YES 
104001 SINDEX PULSE DID NOT CLEAR SOT 
32 OOP DAFL,OAF2P 


$73 
974 
97S 
376 
$77 
978 
973 
389 
981 
$82 
983 
384 
985 
986 
987 
= 
931 
992 
933 
934 
995 
996 
997 
998 
993 
009 
001 
002 
203 
054 
00S 
O06 
007 
coe 


O-< 2 2 0 ~< 8-2 2 8 a 


COS367 002332 BT0G 








-MRIN. MACYI1 
DIRPEA.P11 


1909 


0-+ 0-20 -9-2 0+ p92 po p> 
DNPUN £4: Gtue- OC 





DO3 
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- 007672 


aaa 0C2312 
0606 
O00340 171766 
172604 


TSTND: 


BNE TSTND 
pi #PASMS , 20 


Seth 
MOV #50. 4870 
OV 8P7.C 

MP t 


ce em ee ee oe ee ew 








ee a SD 
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MAIN, 
OZRPEA.PL1 
1019 ‘ 












1920 ; SUBROUTINES 
1 14 012587 002274 BITST: MOV (RS)+, MASK sFETCH DATA MASK 

1055 pees BtseR, MOV (R5)+°RY4 : He st se UNDER TEST 

1024 bobdee 10567 gnee7¢ MOV RS, LERR iret ALL 

1025 AoD a4, RS N VECTOR OVER ERROR CALL 
1026 O06032 012703 000001 MOV R3 HIMITIAN Ze 

1027 767 909018 BTL1: JSR pa’ *BTLe ‘TEST WITH Wack PNG ae 

1028 e 767 O000le JSR PC’BTLe STEST WITH WALKING 1 

l 1 cic LEAR LINK 

Bl pee Bees s 8 1B Te WF een anno c-or 

tpas BOT a8 BNE BTL iat EST AGAIN 

1033 06056 o00205 RTS BS IF SO - EXIT 

1934 008060 905103 BTL2: COM R3 MAKE WALKING 1 INTO WALKING 0 AND VICE VERSA 
1035 006062 010367 o02200 MOV R3, GOOD {PUT PATTERN INTO G00D 

1036 OO6066 AND GOOD , MASK 

1037 095104 016774 902156 oD0000 MOV GOOD; ac R4) ;SEND DATA TO RELEVANT REGISTER 

1038 O06li2 017467 O00000 od2150 MOV 3(R4) BAD ‘READ DATA INTO BAD FROM RELEVANT REGISTER 
1939 006120 AND BAD, MASK 

1040 005136 026767 oo2124 002124 CMP 6008, BAD . C SEND VS. RECEIVE 
1041 OO6144 001406 BEQ ;SKIP OVER ERROR’ON GOOD COMPARE 

1048 OOb 146 004777 002146 SR Pe aLERG as ;CALL RELEVANT ERROR 

1B BRELSEoono7 KPO HF NOT= EXT 

1046 

1047 

1048 906174 012700 oD0002 CLRP: MOV #2,R0 

1049 006200 16777 poco: o02124 MOV #1; aRPCS RESET 

l O06208 767 000010 ISR PC’ TIMEP icevenate i TIME PULSES 

1051 O06212 020000 002142 BIS 4813, DRPM3 SET unit ON=L INE 

105 006220 RTS EXIT 

1054 008222 052777 160001 O02132 TIMEP: BIS #815+B14+13+50, DRPM3 __ GENERATE A TIME PULSE 

1055 905230 3° spore COUNT 

1956 T 

1057 006234 001372 BNE A TMEP :O=YES 

1058 906236 000207 RTS PC 

1059 40 912700 03 T3P: MOV a3 RO 

1060 e445 167 1 IMP TIME :3 TIME PULSES 

1062 

103 





Sccehdieheniniaitinnnnereenpeton ; enmimmintes 


-MAIN, 
OZRPEA.P11 


- 1 


Isctintenenitinieimnite 






1064 


E 
068 


Hitcet tint RR PRR te 


DoDD ODO UO ODOC OOOO COD DOCU OOOOOLD 
wo 
be 


BaRR Eo 





010090 
010000 


040000 


100000 
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002104 INDEXP: BIS 
002076 


002030 HRDER: 817 


002016 HRNI: 
if 
002000 SFTER: OY 
001750 RTR: MOV 
RRLUP ce 
DE 
BNE 
RT 
001722 RTL: MO 
ADD 
RLLUP: CL 
ROL 
DEC 
BNE 
RTS 








#812, a9RPM3 
SR1e, anPHS 
R 

RO 

INDEXP 

PC 


WS14, aRPCS 
SRA’ 


HAN] 
a(SP) ,ROTOG 
82, (SP) 


PC 
a(SP 


) ROTOG 
SP) 


RO 
ROTOG 
RLLUP 


;GENERATE AN INDEX PULSE 


: DEFLATE COUNT 
TF NOT- KEEP PULSING” 
sEXIT 

; TEST HARD ERROR BIT 
;0K_IF_ SET 

: E NOT SET. 
:TEST ERROR BIT IN RPCS 
:OK IF SET 


s YESr EXIT 

sFETCH SHIFT COUNT 
;STEP RETURN VECTOR: 
;CLEAR LINK 

;SHIFT RO LEFT ONCE 
;FINISHED? 


:NO 
;YES- EXIT 





HARD ERROR SIT 





2 


WHO DOVER Looe NOU Los Ur- (5.000 YOU £ On-ODD VO Loo 


0 6-26 +b 6 b= 0 & = <8 = 0 = 0 be = = 0 0 0 = 0 0 0 0 8 0 0 0 = 8 8 8 0 0 0 8 = = = 0 0 0 0 0 0 9 0-0 0 0 ep pe 
ONS So% 


b= b+ 0+ = 0 b= 0 0 0 0 F-20800 -= 0 - = 0 8 0 Bb 0 0 0-2 0-2 2 0-2 2 0 0 he 


wn 
<= 


001462 
020000 


000200 


012000 
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G03 





;SEEK ROUTINE. SR7-O=CYLINDER. SR12=8= TRACK 
SS: MOV. 8, BRPCS 


MO S ORBCR 
MO SR+1, JRPDAL 
MOV #11, aRPCS 
MOV #815. TOG1 
SL: BIT #80, IRPDS 
BEQ sscé 
INC TO0G1 
BNE ie 
SR $s 
SSO: | NOV DRPCA, GOOD 
ERR+GB+DA Ot” 
NOP 
ss 
;READ/WRITE ROUTINE 
SRW: HOV SR, TEMP ;START WITH # OF WORDS IN SR. (1-5777) 
XX sPUT DATA PATTERN IN SR AND CONTINUE 
MOV TEMP1 : 
MOV #12000,R1 
DLI: MOV: SR,(RIS+ 
INC RO 
BNE 1 . 
WGO: MOV #1, QRPCS - 
MOV #12000, JRPBA 
MOV TEMP1. ORPWC 
MOV. #3, ARPCS 
NOP ; 
NOP 
NOP 
NOP 
NOP 
NOP 


WL1: BIT #87, JRPCS 
BEQ 


MOV #20000 
MOV #5, JRPCS 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
RL1: BIT #87, IRPCS 
BEQ RL 
NOP 
NOP 


NOP 
MOV #12000,R1 








mm ee 
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020000 MOV 
001376 , MOV 
Cll: MOV 


Ooi as8 NOV 
Bol 33e 001336 CMP 





-MAIN. MACYL1 
DZRPEA.P11 


BBLRR LOR SSB URAL -Swatousane-swoue Dp 


il 
i 
Bere 
Hn Bee 
11 774 
1} 
11 
ue Bae 
ie beat 
He Be 
He Bae 
+ 097034 
He Bee 
1185 007046 
1186 00705e 
1187 007056 
1188 007060 
1189 007064 
1190 907070 
1181 907072 
1132 007076 
1193. 007102 
1194 907104 
11 007110 
ll 007114 
1197 007116 
1198 007lee 
1199 007126 
1200 007130 
1291 007134 
le0e 007140 
1203 007144 
1204 007150 
1205 007156 
4206 007160 
1e07 007162 
1208 


Re ies 


27(732) 
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Y 


J 
MOV 


O40000 170616 ERROR: 


GOGO: 


000150 

000676 

000015 

000742 

100090 170412 ERXITI: 
EHALT1: 


ERXIT: 


>) 
~~) 
o-o4D 


REE 
oawo- 


m.mmoc 
Reames 


wc.mmc 
gary phe 1 
oDo-4 


; TEST TTO DELETE SWITCH 

;EXIT NOM TF iT GELE E SWITCH IS UP 
;SAVE ACO- o 

;MESSAGE POINTER TO KO 

;PRINT MESSAGE 

. ;FETCH SAVED PC 


ipa eOINER Inge = 
:PRINT PC 


;P t PS=" 
;FETCH SAVED STATUS 
;AND PRINT IT 


;NO 
; SUBROUTINE ERROR 
sRPCS? 


1) FOR GOOD/BAD 
P IF=0 


~—- i 


B 
3 SK 
8 
C) 


;DATA 
;RESTORE ACO-S 
;PRINT 


;CR & LF 
sSRIS(1)=DELETE ERROR HALT 
sSKIP IF 2=0 


;ERROR HALT. CONTINUE 
;EXIT ERROR ROUTINE 
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020000 170376 LERCHK: es SR ;SR13(1)=1.00P ON ERROR 


: Fl 
#4, (SP) s BOVANCE RETURN VECTOR OVER LOOP JUMP 
LERXT: FC’ ;EXIT 


170360 LUPCHK: oe , SR Pete te yor ALWAYS 
sBOVENCE RETURN VECTOR OVER LOOP JUMP 


ete | 
1 P= 0 0 bo bhp pe pe 
00D ITU LITO: 


rurgests 


;POINTER TO “GOOD” 
SSAGE 


;PRINT 

‘FETCH C(GOOD) 

"PRINT DCTAL NUMBER 
“POINTER TO “BAD” 

sPRINT MESSAGE 

?FETCH C(BAD) 

sERINT OCTAL NUMBER 


OO 


rorure 
eta} 


CSTYPE: Sara TO “STATUS” 
JS TEX 


FETCH ctppes) 

RINT OCTAL NUMBER 

-POINTER TO “DATA” 
TEST 


oe 


fasta 
FETCH C(DATA) 
sBRINT OCTAL NUMBER 
ERTYPE: 


1235 
le 

le 

1238 
1239 
1240 
1241 
1242 
1243 
1244 
1e45 
1246 
1247 
1248 
1250 


17,R0 
PC, OCTPNT 
PC 








-MAIN. 
OZRPEA.P11 


1e68 007470 


Solsitce 
2 
I 
4 


fururururufure 


sep RIRRE AIS 
; 
Shen 


furururururorvrurorurorururururururas rs 
SS 

etete! 

o 

e 
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007636 
000534 
000022 
000004 
000356 
000006 
O00SE6 


0060 
OS46 


000532 
poo00s 


000316 


000310 
000476 


000570 


ooosse 


000522 
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SUBER: 


PNTOCT: 
OLUP: 


TOLUPO: 


MOV 
R 


KO3 


#SUBRMS , RO 


PC, TYPOUT 
22tsp),R 
#4, 

PC} OCTPNT 
PC 

#6, TOGY 
RO, WORK 


WORK, -{SP) 
R 














-MAIN, 
DZRPEA.P 


1300 


SY Usha eto teittet cies ist beta 


cad Gad Gad EadEad Cad Cad Cad Cad ead ead Cad Cad Cad Gad Cad CaDEad Cad Eada Cad ead Ca Cad ad Cad Cad ead CadeadCad 
igigis 
won 


WWI) 
ee 


MACY11 
ll 


271732) 


023046 
O20iee 


ovbo¥0 
041446 
020104 
051440 
052125 
0S2101 
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O47S2e ERMSI: .ASCII 
040440 ; 


051523 


042516 


036S23 


036S22 


036523 


020075 


051101 


051101 


042117 


042101 


020075 


040524 


SUBRMS: .ASCITI 


PASMS: 


CSMS: 


ERMS: 


DSMS: 


CYMS: 


TAMS: 


SEMS: 


GOMS: 


BOMS: 


STMS: 





-ASCIT 


-BYTE 
-ASCIT 


-ASCITI 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 


-ASCIT 








LO3 





/&3ERROR AT ADDRESS a” 


7&CALLED FROM SUBROUTINE AT a/ 


FRDONESA/ 

/8RPCS= a/ 
/8RPER= a/ 
/8RPDS= a/ 
/8CAR= a/ 

/ TAR= @/ 
/ SAR= a/ 
/8GO00D= a/ 
/ BAD= a 
4 PS= a/ 


/BDATA= a/ 
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SAVER RO-RS SON THE STACK 
RUE R3 Ra ARE sf BeKED Above tr 

Re THOS THE THE ORETURN PC, BUT AN 

:RTS WOULD POP THE STACK-SO JUMP OUT 
sMOVE SP OVER WORD SAVED BY JSR 


ARE POPPED 
iN. LIFO. 


SAVOS: MOV 
| MOV 


RESTOS: 


335 
cS 


Bag 


ear Nea 


DECPNT: " 10. SDIVISCR OF 10 roe DECIMAL PRINT 


sprore ss a aN. ral 
OCTPNT: MOV #8. Re FOR oCtA PRINT 
DECREM: ete ; DIVIDE 7 ay (Re) ITH REMAINDER IN RI 


STACK R 
HAS NUMBER Cer LATED BELOW RADIX? 


POPTT YES - P PRI 
PC DECREN :NO - DIVIDE NUMBER BY RADIX 
(SP)+.R ; POP NUMBER FROM STACK 


ADD 60,R K Cc 
167450 : aa iF SR1I4=1,DELETE TYPEOUT | 
sPRENT 9 CONTENTS OF RO 
3NO - KEEP LOOPING 
HARACTER A 


ay 
peed Riss 


baa a as Tg 
BeR8 


Vs) 
OOOOOOOOOOOOOOONO BOOOOOOOOOOOOOOOOO00ONN OOO0000O DO00000O 


ee be bs os be 0 = 0 0 0 ee ee ee eee 


SEVERSWR LB 2d 


= 


INE FEED 
halt TO POPTT OR MAIN PROGRAM 
sEXECUTE PRINT 


IDIVR: , ; SAVE DIVIDEND 
RO ; CLEAR pr A al AREA 
C Ri CLEAR A 
DIVLP: os Re,R ; ADD Divison 10 ACCUM. 


COMPARE TO 
;WHEN ACCUM Aer DIVIDEND - EXIT 
j INCREMENT QUOTIENT THEN 


aR DIVL 
DVEND: JUMP TO RET REMAINDER 
NC RO "NO REMAINDER - INCREMENT QUOTIENT 
SRENAINDER OF 0 
mee yy EXIT 
DIVNI: “FANCY FINAGLING TO 
ADD DETERMINE THE REMAINDER 
*REMAINDER TO Ril 
EXIT WITH QUOTIENT IN RO 


TTOLF : 


ONOKONOO0OND BOOOOOVOOV0OR0000O0 
Ty eel end Sed od od Wyre SS ee SSS 
fj 


SS SISeReRe SE 


38 


1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1370 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


BOBS IRR ESI OE sal toll soled 


forurure 
orm 











: MS iio 27(732) O8-SEP-76 08:58 PAGE 39 


4 
Ret ons 000046 


Ey tm 


etme 


oO 
fu 
o 
= 


Benes SNe 


BaGe 
ocMoO 
3S5E5$ 55 55 5555 5535 


§ 


t= fb b= &— b— - b- P 
ooood 

o oo 
NNNNNNN 
ob phe pe 
CW CWO 


saRoReO 


hs 
“J 
o 
“I 
all 
tw 


aa? 


SsSeeReee 


DOOOOOOO0O000D OOOKOOOOOOO OOOO DOOHHOOOOOO00000 BOOCOKOO0O0O0OOO0O0O 
ee ee ee ee a ee eh bh bm ee 


Prre 
F2R8 








0,-(SP) 


S( 86) 
ABB tse 
a6, RO 


x H0 
{Poren 
PC 





ers ADDRESS POINTER FOR MESSAGE 


ie IT CRLF FLAG? 
= CHANGE DATA TO CRLF 
Nove POINTER TO NEXT BYTE 
;BOP STACK TO REACH RETURN VECTOR 












MAIN. MACYLI 27% 
DORPER.Pi1 


is 








2) O8-SEP-7& 08:58 PAGE 40 


;THAT’S ALL FOLKS! 






bee ee el ~ - LE LLG ALLEL LLL LAA LLL LLL LLL LLL ALLL LL LLL LOL LL LL LL 






-MAIN. MACYLL 271732) O8-SEP-7§ 08:58 PAGE Ye 
DZRPER.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 


AOTYPE 07372 1138 = i258 














BAST . 1 i 5078 : ‘ 
cast 9608 %1 g77s 978% 979% 9808 9818 983% 9968 997% 998% 999% 

- as 19 10028 1038* 10408 i13# 1158 1189 1227 14078 

BTS Boss 4 a3 500 so4 sos - $12 S16 520 sey cogs 10228 






* 
BE . Ba : 
5: _ = 000052 3038 321 
B18. = opee00 ads 6 
Bl = DoNOO Sets 
Ble = 010000 3l48 = 623 
813 = 929000 3158 537 
B14 = 040000 3168 593 
B15 = 100000 ai7e = 5348 
i106 =. 1204 
Be so4e 322 
BeBT 1$7% S238 
B3 _ = 900010 305@ 323 
838T . 901610 Se78 
BY = 900020 2068 86 324 
8S = 900040 3078 8 §©=. 325 
ae = 909100 3088 g76 
Bs = So0N00 aide 
89 = 003000 giles 651 
ai Be ae 
CAF IP Beeues 962 9658 
005414 95 


: 
tw 
~“ 
—w0O 






CALI 

c 232 
CLRP 006174 sae ad 
CLl 096714 11578 1163 
CR = 900015 th le 
cs = C 42 4] 

1082 

CCST 001464 4998 
CSE19 939 9478 
CSE2 8&8 
CSE4 





ae 










-MAIN, MACYI1 27(732) peace’ ¢ se PAGE 43 
DZRPER.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 






2 
CSil S4ee 8=—s_« 851 857 










31 13078 
os 

C 8838 

CSNS 005106 897 9088 

CSN? 00S26e2 924 9328 

CSTYPE 7 1185 le3ls 

CYMS 1s 13168 

Da z @ 1114 

DAT 001544 5158 

DAF I 005476 3718 1006 

Dare 005534 9318 

2eP g90S74e 1003 19068 

1 O0SS1§ 9758 98 98s 

DALIP O05615 984 98738 

DAMS 010011 1236 13348 

DATA 0102 419% 426% 433% 440% 447% aise 46 1* 469% 475% 561% 
719% 7el 728* 53 733 pe 742 746% 748 755% 
Aa 3% 775 782% 783 78 795% 73% 839% 845 

DATYPE 607304 1200 12368 

DD = 900002 sels = 427 434 44] Sq Sh 45S 462 aed 475 
578 586 726 738 733 765 780 732 

DEBUG O10406 14468 = 1447 

DECPNT 010054 13558 

DECREM OQiO066 1356 13588 1362 

DIVID 010274 1376% 1380 1388# 1389# 1390 14098 

DIVLP O10162 13798 861383 = 

DIVNL 019206 1384 13888 

DL1 006540 lieSe 1127 

OS = 000004 3228 401 540 59 605 625 634 ee] 653 6&2 
879 323 948 ‘” 

DST 001434 4918 

DSF 1 002260 Sols 598 

DSFIP  O02320 gs c98s 

DSF10  OO0300& ccee 664 

OSFIOP 003054 6648 

DSF11 903064 6658 672 

DSFIIP 003124 6728 

DSFle 003134 6738 681 

OSFi2eP 003202 678 6818 

DSF13 O03ele 6828 

DSFI3P O03e66 687 631s 

OSFe 002330 5998 

DSFeP 002376 604 607% 

DSF3 002406 6088 629 

DSFSP O02eS7E ca4 628s 

DSF4 OG2606 6238 26 

DSFYP O0cb4E i 633 6368 


| aes 





ween ee 











-MAIN. MACYL1 271732) O8-SEP-7& 08:58 PAGE 44 
OZRPEA.P11 CROSS REFERENCE TABLE -- USER SYMBOLS - 










SES, ORES 6378 © -B4S 
D O02724 64 6458 
O5F& 002734 b468 
DSF? 002736 B488 655 
pre Oe nee 
1246 Side 
TYPE 00; 1191 12468 
DvEND 010176 1381, 13648 
BRPLTL Bootes 8s 407Ss«SH?si7Hsi71S(itikHCSC“‘«‘m:SOSOCSSSCiCESS—“<(ié‘iwSCSC*«C7SB 
ER8T 001450 4958 
ERF1 003316 6998 707 
Bi Row 
é 
Enrige BoMese eee 
ERFI1 O04256 soos 80s 
ERFIIP OO04326 8098 
ERFI2 004336 8108 
ERFI3 04340 Slee 
ERFI4Y 04342 8148 a22 
ERFIYP QO44OE So28 
ERFIS OO4416 S238 
Feri? Sosuee 3% 
Epes oaa04 7088 = 717 
ERFEP QO3446 7178 
ERF2p 04424 " 
ERFel 04426 8318 
ERfee 004430 23 
a8 = ie 
Enea poset 73280 74ls743 
ERFUP 7418 
ERFS 003656 7458 
ERFE 003760 7598 «= 768—Ss770 
ERFEP 04032 7588 





ERF7 OO040S6 7728 
prid. 003466 7e08 = 728 730 
003534 725 7288 
5 003666 7478 = 755 757 
SP 003734 7$2 7558 
> ee | a 
ERM os 1DsH80 3198 1074 1078 1082 
ERMS 0077 i1e le41 13108 
ERMS1  00761e 1170S «12928 
ERN] 003350 703 7058 
ERN1O si8 791 pe 
BRN A le 805 807s 
‘14 372 818 © S208 
ERNe O0343¢ 713 7158 
a nn ee 
ERR =] 3188 mit} 407 akg oko 427 434 441 38 ose 462 469 476 
496 5 S08 512 pie Se 4 523 S40 pe 


$70 578 586 596 605 634 643 653 $62 


wn 
wn 
= 
ws 
o 
fw 








MAIN, 


DZRPEA.P 11 


Bt 
TYPE 
IT 








MACYL1 27(732) 


744 
ee 


= 900000 
= 000040 


O8-SEP-76 08:58 PAGE 45 
CROSS REFERENCE TABLE -- USER SYMBOLS 


714_— 


689 


704 
$93 
11678 


90S 


692% 
103S# 
739 

1083 


883 


B61# 
933% 


726 
919 


S04 
693 
1037% 
766 
10658 
ais 
7 


0 
895 


FOY 


738 
929 


958% 
1040 
793 


1069 
436 
9 

1? 
907 


7$3 
948 


13578 | 


765 
963 


780 
9e5 





792 
1004 


890% 


9728 
14068 


899% 


983 


903% 


967% 


911s 














DZRPEA.P11 


Pe = 000100 2368 

aed = 0001 e978 
= 2388 
= 000240 


ee be 


. 
fies 


ROTOG 910316 1084%% 
RPBA 8 =019340 424 
RPBT 901500 S038 
RPB1 010366 466 
RPB11 010370 14398 
RPB2 01037e 473 
RPB2l 010374 14418 
RPB3 010376 480 
RPB31 910400 14438 
RPCR Qi034e 431 
RPCAL O10344 960 
S 010332 4il 
788% 

1075 
RPCSi 010334 14258 
RPOR O10346 age 
RPDAL 019350 748% 
RPOS  Q103e2 . 333 
649+ 

938% 
RPDSi 9010324 l4els 
RPER 9010326 +03 
RPER! 010330 14238 
RPIY tees 841% 
RPM1 10352 445 
RPM11 010354 14338 
RPMe 861 452 
RPMel ste 959# 
RPM3 10362 459 
619% 


MAIN. MACYLL 27(732) 08-SEP-75 08:58 PAGE 46 
CROSS REFERENCE TABLE -- USER SYMBOLS 


1 
1150 

1088* 1091# 1095* 14198 

42 06 508s SES# G7 E9129 «LIM «14278 

468 S20 14388 

475 S24 14D 

S28 14428 , 

3g, «Sle S73e S75 S77 7188 ele 7338 1103# 1112 125314288 
Soo 0 SSO# «= SS2sis«é GH O70) 710 «= 712s 7eBe )|734R 749 7B 7 7G 
Boee Bigs Be Brox GG S0Ue Sige fest HOH Buee 1ONSe 1072 
1 110ee 1105* 1128 1131e 1138 «14x «11991233144 

wg Bu6 Sait S83 S85 609 612% 74S# 7728 775% 7878 977 


923 
a1 
ey B48 (EGS (tC Bi ia G(R DENY 


$72 
S728 
5 






laze 
S34 
666% 









RPM31 010364 


Resy 919404 
RRLUP ees 
366 













Bie AZGH 2 






=~000006 
=%000007 
vos pier 
SFTER 06324 
SL 0064S2 
SP =%000006 
sk = 177570 
SRW 006514 
S pe 
GO 0064 
START 000600 
STMS 010002 
SUBER 007460 
aos 007636 
TEMP 1 1032 
TIMEP 
TKB = 177562 
Ks = 177580 
Toor * B10e% 
TOGe 010300 
0G3 010302 
010304 
TOLUPO 007574 
TPOFCH Bi GBEE 
% 010262 
= 177564 
TPY = O00064 
TSTND 005776 


77 
TTC 010112 


O8-SEP-76 08:58 PAGE 47 


-MAIN, MACYIL 2 
OZRPEA.P11 CROSS REFERENCE TABLE -- USER SYMBOLS 


o 
fas 
ee 


~_ 
a | 
oe 


— 

iy 

~S 

_ 
Tuo 

HOD 

ror 

Presruhe 

ss 3 


sia SERRE 
HH 


ae 
ee ee 


4 


Ss Ret 


— b+ BR Bs HH be 


ee ee b= b= b+ b= be 
bb bh ee en ee 


5 


1037% 
S554 
1033% 


= 
i ee 
Ke ie ie oe oe 


See be 


°o 
ees 
= We 
5a Vo 
* 


Racer 
ReUREEEE § 


Our 





o-- 


Tw 
& — & = b+ ho Bo B= BB = Bese bs bb 2 f= GS he 


t= 0-2 b= p> >= bp [ee b-2 8 Ph 20-9 Be 


se 
Rae 


8 


Reson 
ronan 


om 


BSNSee 


oO 
Ww 


1162 
516# 










MAIN. 
DZRPE 


TTOLF 


TROUT 


T. 


41-444 4 4 4-4 4-4 4 4 
P= b= & = 6 bobo po pe po pe 


MACYLL 27(732) SEP-76 08 
CROSS REFERENCE TABLE 


1371 
1171 


38 
zac 


LW 
rire 


ceeae 


= 
8 


2 


Bsgegesees 
Bi eegeee 


Fas 
ow 


~ 
£ 


Oo 
o-- 
i 





403 
5 


758 PAGE 48 
-- USER SYMBOLS 


1076 1180 
14478 





1247 


789 


1411 











MACY11 27(732) 


O8-SEP-76 08:58 PAGE Se 
CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


od 
=r 


Bgeaeyaeacey 


a a Se oo oe 
Be 


Ww 
F 
or 





sBeoe Sie 


Ol 
09 
4 


furl 










a 
Mulder 
Hot mt HF 
rr 


MnM-—-Ow 
fore 
moO 


Ww 


-MAIN. MACY11 27(732) O8-SEP-76 08:58 PAGE S3 
DOZRPEA.P11 CROSS REFERENCE TABLE -- PERMANENT SYMBOLS 


1376 =6.1390 Ss 1393 
8 700 710 


825 
901 
1137 


—_- 
ore 
tJ 
OOo 


e228 & 


-~ 
Re 
_ 
™“ 


fe 
<= 


w 
w 
ve) 


Ww 
@ 
N 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


*DZRPEA, DZRPEA. SEQ/SOL/CRF/DS: ERFZ2/EN: ABS=DSKM: DZRPEA.P11 
RUN-TIME: 5 9 3 SECONDS 
RUN-TIME RATIO: 29/18=1.5 

CORE USED: 9x (iS PAGES) 





ae 


sk writes, SU | $ 
ae ie 


Sanondntnans 


+++ 
pik 77 8888 Sa 


sfiftetaetatsatatalteta fatale 


Se ee a rete Ec taita 


D000! a0 ili 
SOOOOOOO LILI 1122222222 555555555666666666677 gggease9ss9993999999C000000000 





